﻿Public Class Informes

    Private Sub ClientesBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.ClientesBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.NuevoZooDBDataSet)

    End Sub

    Private Sub Informes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'NuevoZooDBDataSet.Animales' table. You can move, or remove it, as needed.
        Me.AnimalesTableAdapter.Fill(Me.NuevoZooDBDataSet.Animales)
        'TODO: This line of code loads data into the 'NuevoZooDBDataSet.Productos' table. You can move, or remove it, as needed.
        Me.ProductosTableAdapter.Fill(Me.NuevoZooDBDataSet.Productos)
        'TODO: This line of code loads data into the 'NuevoZooDBDataSet.Agenda' table. You can move, or remove it, as needed.
        Me.AgendaTableAdapter.Fill(Me.NuevoZooDBDataSet.Agenda)
        'TODO: This line of code loads data into the 'NuevoZooDBDataSet.Clientes' table. You can move, or remove it, as needed.
        Me.ClientesTableAdapter.Fill(Me.NuevoZooDBDataSet.Clientes)

        ToolStrip1.ImageList = ImageList1
        ToolStripButton1.ImageIndex = 0
        ToolStripButton2.ImageIndex = 1
        ToolStripButton3.ImageIndex = 2
        ToolStripButton4.ImageIndex = 3
        ToolStripButton5.ImageIndex = 4
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        TabControl1.SelectedIndex = 0
    End Sub

    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        TabControl1.SelectedIndex = 2
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        If TabControl1.SelectedIndex <> 0 Then
            TabControl1.SelectedIndex = TabControl1.SelectedIndex - 1
        End If
    End Sub

    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        If TabControl1.SelectedIndex <> 2 Then
            TabControl1.SelectedIndex = TabControl1.SelectedIndex + 1
        End If
    End Sub

    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        Dim rpc
        If TabControl1.SelectedIndex = 0 Then
            rpc = New Reportclientes
        ElseIf TabControl1.SelectedIndex = 1 Then
            rpc = New Reporteanimales
        Else
            rpc = New Reporteproductos
        End If
        rpc.ShowDialog()

    End Sub
End Class